Chip 1998 January/CHIP Turkiye Ocak 1998.iso/MUZIK/DFC/DFC095.EXE/Dfc.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-07-22 | 27.2 KB | 1,236 lines

object Form1: TForm1
  Left = 193
  Top = 107
  Width = 600
  Height = 564
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Defractor 0.95�'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = DefractorOnActivate
  OnClick = DefractorOnActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 3
    Width = 84
    Height = 18
    Caption = 'Oscillator 1'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 501
    Top = 3
    Width = 84
    Height = 18
    Caption = 'Oscillator 2'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 6
    Top = 156
    Width = 53
    Height = 13
    Caption = 'Frequency:'
  end
  object Label4: TLabel
    Left = 318
    Top = 156
    Width = 53
    Height = 13
    Caption = 'Frequency:'
  end
  object Osc1TextInfo: TLabel
    Left = 207
    Top = 147
    Width = 32
    Height = 16
    Alignment = taRightJustify
    Caption = 'None'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Osc2TextInfo: TLabel
    Left = 555
    Top = 147
    Width = 32
    Height = 16
    Alignment = taRightJustify
    Caption = 'None'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 261
    Top = 174
    Width = 16
    Height = 16
    Caption = 'Hz'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 570
    Top = 174
    Width = 16
    Height = 16
    Caption = 'Hz'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object O1AmpText: TLabel
    Left = 182
    Top = 6
    Width = 53
    Height = 13
    Alignment = taRightJustify
    Caption = 'Amp: 1.00x'
  end
  object O2AmpText: TLabel
    Left = 354
    Top = 6
    Width = 53
    Height = 13
    Caption = 'Amp: 1.00x'
  end
  object Label18: TLabel
    Left = 261
    Top = 24
    Width = 11
    Height = 13
    Caption = '0x'
  end
  object Label19: TLabel
    Left = 261
    Top = 129
    Width = 17
    Height = 13
    Caption = '10x'
  end
  object Label21: TLabel
    Left = 315
    Top = 129
    Width = 17
    Height = 13
    Caption = '10x'
  end
  object Label22: TLabel
    Left = 321
    Top = 24
    Width = 11
    Height = 13
    Caption = '0x'
  end
  object Label23: TLabel
    Left = 204
    Top = 216
    Width = 99
    Height = 16
    Caption = 'Sample Preview'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Osc1FreqSB: TScrollBar
    Left = 6
    Top = 174
    Width = 190
    Height = 16
    Hint = 'Oscillator 1 Frequency '
    LargeChange = 10
    Max = 32000
    Min = 1
    ParentShowHint = False
    Position = 220
    ShowHint = True
    TabOrder = 0
    OnChange = Osc1FreqSBChange
  end
  object Osc1EBFreq: TEdit
    Left = 201
    Top = 171
    Width = 55
    Height = 21
    Hint = 'Oscillator 1 Frequency'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = '220.0'
    OnChange = Osc1EBFreqChange
  end
  object Osc2FreqSB: TScrollBar
    Left = 318
    Top = 174
    Width = 187
    Height = 16
    Hint = 'Oscillator 2 Frequency'
    LargeChange = 10
    Max = 32000
    Min = 1
    ParentShowHint = False
    Position = 110
    ShowHint = True
    TabOrder = 2
    OnChange = Osc2FreqSBChange
  end
  object Osc2EBFreq: TEdit
    Left = 510
    Top = 171
    Width = 55
    Height = 21
    Hint = 'Oscillator 2 Frequency'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = '110.0'
    OnChange = Osc2EBFreqChange
  end
  object Panel1: TPanel
    Left = 6
    Top = 195
    Width = 106
    Height = 37
    TabOrder = 4
    object Osc1Options: TButton
      Left = 6
      Top = 6
      Width = 94
      Height = 25
      Hint = 'More settings for oscillator 1'
      Caption = 'More Settings...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Osc1OptionsClick
    end
  end
  object Panel2: TPanel
    Left = 480
    Top = 195
    Width = 106
    Height = 37
    TabOrder = 5
    object Osc2Options: TButton
      Left = 6
      Top = 6
      Width = 94
      Height = 25
      Hint = 'More settings for Oscillator 2'
      Caption = 'More Settings...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Osc2OptionsClick
    end
  end
  object FilterGroup: TGroupBox
    Left = 6
    Top = 321
    Width = 580
    Height = 94
    Caption = ' Filters '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 6
    object Label10: TLabel
      Left = 111
      Top = 18
      Width = 33
      Height = 13
      Caption = 'Power:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 111
      Top = 42
      Width = 33
      Height = 13
      Caption = 'Power:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 336
      Top = 42
      Width = 50
      Height = 13
      Caption = 'Threshold:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 111
      Top = 66
      Width = 28
      Height = 13
      Caption = 'Ratio:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SText: TLabel
      Left = 450
      Top = 66
      Width = 39
      Height = 13
      Caption = '0.00700'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SmText: TLabel
      Left = 531
      Top = 18
      Width = 27
      Height = 13
      Caption = '2.100'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SmoCBox: TCheckBox
      Left = 6
      Top = 18
      Width = 88
      Height = 17
      Hint = 'Enable/Disable Smoothing Filter'
      Caption = 'Smoothing:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SmoCBoxClick
    end
    object SmoPower: TScrollBar
      Left = 150
      Top = 18
      Width = 376
      Height = 14
      Hint = 'Smoothing Power'
      LargeChange = 10
      Max = 10000
      Min = 1
      ParentShowHint = False
      Position = 100
      ShowHint = True
      TabOrder = 1
      OnChange = SmoPowerChange
    end
    object PPCBox: TCheckBox
      Left = 6
      Top = 42
      Width = 100
      Height = 17
      Hint = 'Enable/Disable Pinch/Punch Filter'
      Caption = 'Pinch/Punch:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = PPCBoxClick
    end
    object PPPowSB: TScrollBar
      Left = 150
      Top = 42
      Width = 172
      Height = 14
      Hint = 'Pinch/Punch Power'
      LargeChange = 10
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = PPPowSBChange
    end
    object ScrollBar1: TScrollBar
      Left = 390
      Top = 42
      Width = 181
      Height = 14
      Hint = 'Pinch/Punch Threshold'
      LargeChange = 10
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnChange = ScrollBar1Change
    end
    object CheckBox1: TCheckBox
      Left = 6
      Top = 66
      Width = 100
      Height = 17
      Hint = 'Enable/Disable Sliding'
      Caption = 'Sliding:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = CheckBox1Click
    end
    object SliRatio: TScrollBar
      Left = 150
      Top = 66
      Width = 295
      Height = 14
      Hint = 'Slide Ratio (Hz/sample)'
      LargeChange = 10
      Max = 10000
      Min = 1
      ParentShowHint = False
      Position = 100
      ShowHint = True
      TabOrder = 6
      OnChange = SliRatioChange
    end
    object SliMode: TCheckBox
      Left = 495
      Top = 66
      Width = 76
      Height = 17
      Hint = 'Enable/Disable (Up/Down) Slide Direction'
      Caption = 'Up/Down'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = SliModeClick
    end
  end
  object Advanced: TGroupBox
    Left = 6
    Top = 417
    Width = 580
    Height = 94
    Caption = ' Advanced '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 7
    object Label11: TLabel
      Left = 6
      Top = 18
      Width = 62
      Height = 13
      Caption = 'OverDrive:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 6
      Top = 42
      Width = 64
      Height = 13
      Caption = 'Attenuator:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 222
      Top = 69
      Width = 103
      Height = 13
      Caption = 'Internal Multiplier:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label16: TLabel
      Left = 414
      Top = 69
      Width = 90
      Height = 13
      Caption = 'Division Factor:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object OText: TLabel
      Left = 543
      Top = 18
      Width = 21
      Height = 13
      Caption = '1.00'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object AText: TLabel
      Left = 543
      Top = 42
      Width = 27
      Height = 13
      Caption = '1.000'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object OverDriveSB: TScrollBar
      Left = 87
      Top = 18
      Width = 451
      Height = 14
      Hint = 'OverDrive'
      LargeChange = 10
      Max = 1000
      Min = 1
      ParentShowHint = False
      Position = 1
      ShowHint = True
      TabOrder = 0
      OnChange = OverDriveSBChange
    end
    object AttenuateSB: TScrollBar
      Left = 87
      Top = 42
      Width = 451
      Height = 14
      Hint = 'Attenuation'
      LargeChange = 10
      Max = 1000
      Min = 1
      ParentShowHint = False
      Position = 1
      ShowHint = True
      TabOrder = 1
      OnChange = AttenuateSBChange
    end
    object AAutoSync: TCheckBox
      Left = 6
      Top = 69
      Width = 202
      Height = 17
      Hint = 'Enable/Disable Synchronization'
      Caption = 'Amplitude/Phase Synchronizer'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 2
      OnClick = AAutoSyncClick
    end
    object IntMul: TEdit
      Left = 327
      Top = 66
      Width = 64
      Height = 21
      Hint = 'Internal Multiplier Value'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = '2.2'
      OnChange = IntMulChange
    end
    object DivFact: TEdit
      Left = 510
      Top = 66
      Width = 64
      Height = 21
      Hint = 'Division Factor Value'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = '1.1'
      OnChange = DivFactChange
    end
  end
  object Panel3: TPanel
    Left = 6
    Top = 24
    Width = 232
    Height = 118
    TabOrder = 8
    object PaintBox1: TPaintBox
      Left = 6
      Top = 6
      Width = 220
      Height = 106
      Color = clWhite
      ParentColor = False
      OnPaint = PaintBox1Paint
    end
  end
  object Panel4: TPanel
    Left = 354
    Top = 24
    Width = 232
    Height = 118
    TabOrder = 9
    object PaintBox2: TPaintBox
      Left = 6
      Top = 6
      Width = 220
      Height = 106
      Color = clWhite
      ParentColor = False
      OnPaint = PaintBox2Paint
    end
  end
  object EnveBox: TGroupBox
    Left = 6
    Top = 234
    Width = 580
    Height = 85
    Caption = ' Envelope Generators '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 10
    object Label7: TLabel
      Left = 12
      Top = 42
      Width = 34
      Height = 13
      Caption = 'Attack:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object O1AText: TLabel
      Left = 231
      Top = 42
      Width = 58
      Height = 13
      Caption = '0.000 sec'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 12
      Top = 60
      Width = 34
      Height = 13
      Caption = 'Decay:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object O1DText: TLabel
      Left = 231
      Top = 60
      Width = 58
      Height = 13
      Caption = '0.000 sec'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 300
      Top = 60
      Width = 34
      Height = 13
      Caption = 'Decay:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object O2DText: TLabel
      Left = 519
      Top = 60
      Width = 55
      Height = 13
      Caption = '0.000 sec'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object O2AText: TLabel
      Left = 519
      Top = 42
      Width = 55
      Height = 13
      Caption = '0.000 sec'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 300
      Top = 42
      Width = 34
      Height = 13
      Caption = 'Attack:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object O1EnvCBox: TCheckBox
      Left = 9
      Top = 21
      Width = 157
      Height = 17
      Hint = 'Enable/Disable Enveloping'
      Caption = 'Enveloping Oscillator 1'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = O1EnvCBoxClick
    end
    object O2EnvCBox: TCheckBox
      Left = 300
      Top = 21
      Width = 157
      Height = 17
      Hint = 'Enable/Disable Enveloping'
      Caption = 'Enveloping Oscillator 2'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = O2EnvCBoxClick
    end
    object O1AttackSB: TScrollBar
      Left = 54
      Top = 42
      Width = 172
      Height = 13
      Hint = 'Attack Time'
      LargeChange = 10
      Max = 15000
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = O1AttackSBChange
    end
    object O1DecaySB: TScrollBar
      Left = 54
      Top = 60
      Width = 172
      Height = 13
      Hint = 'Decay Time'
      LargeChange = 10
      Max = 30000
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = O1DecaySBChange
    end
    object O2DecaySB: TScrollBar
      Left = 342
      Top = 60
      Width = 172
      Height = 13
      Hint = 'Decay Time'
      LargeChange = 10
      Max = 30000
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnChange = O2DecaySBChange
    end
    object O2AttackSB: TScrollBar
      Left = 342
      Top = 42
      Width = 172
      Height = 13
      Hint = 'Attack Time'
      LargeChange = 10
      Max = 15000
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnChange = O2AttackSBChange
    end
  end
  object O1AmplSB: TScrollBar
    Left = 243
    Top = 24
    Width = 13
    Height = 118
    Hint = 'Oscillator 1 Amplification'
    Kind = sbVertical
    LargeChange = 10
    Max = 1000
    ParentShowHint = False
    Position = 100
    ShowHint = True
    TabOrder = 11
    OnChange = O1AmplSBChange
  end
  object O2AmplSB: TScrollBar
    Left = 336
    Top = 24
    Width = 13
    Height = 118
    Hint = 'Oscillator 2 Amplification'
    Kind = sbVertical
    LargeChange = 10
    Max = 1000
    ParentShowHint = False
    Position = 100
    ShowHint = True
    TabOrder = 12
    OnChange = O2AmplSBChange
  end
  object MediaPlayer1: TMediaPlayer
    Left = 306
    Top = 213
    Width = 29
    Height = 20
    Hint = 'Preview current instrument'
    ColoredButtons = [btPause, btNext, btPrev, btStep, btBack, btRecord, btEject]
    VisibleButtons = [btPlay]
    AutoEnable = False
    AutoRewind = False
    DeviceType = dtWaveAudio
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = MediaPlayer1Click
  end
  object Copy1to2: TButton
    Left = 273
    Top = 51
    Width = 49
    Height = 19
    Hint = 'Copy Oscillator 1 to Oscillator 2'
    Caption = '>>>'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = Copy1to2Click
  end
  object Copy2to1: TButton
    Left = 273
    Top = 72
    Width = 49
    Height = 19
    Hint = 'Copy Oscillator 2 to Oscillator 1'
    Caption = '<<<'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = Copy2to1Click
  end
  object SwapOscil: TButton
    Left = 273
    Top = 93
    Width = 49
    Height = 19
    Hint = 'Swap oscillator settings'
    Caption = '<-->'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    OnClick = SwapOscilClick
  end
  object MainMenu1: TMainMenu
    Left = 447
    Top = 201
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object ResetSynth1: TMenuItem
        Caption = '&Reset Synth'
        ShortCut = 0
        OnClick = ResetSynth1Click
      end
      object Open1: TMenuItem
        Caption = '&Open Instrument...'
        ShortCut = 0
        OnClick = Open1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Save Instrument...'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Save1: TMenuItem
        Caption = 'Save &As Sample...'
        ShortCut = 0
        OnClick = Save1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object InstrumentSampleSettings1: TMenuItem
        Caption = '&Instrument/Sample Settings...'
        ShortCut = 0
        OnClick = InstrumentSampleSettings1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit Defractor'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Oscillator1: TMenuItem
      Caption = 'Oscillator &1'
      ShortCut = 0
      object Sine1: TMenuItem
        Caption = 'Sine'
        RadioItem = True
        ShortCut = 0
        OnClick = Sine1Click
      end
      object Square1: TMenuItem
        Caption = 'Square'
        RadioItem = True
        ShortCut = 0
        OnClick = Square1Click
      end
      object SawTooth1: TMenuItem
        Caption = 'Saw Tooth'
        RadioItem = True
        ShortCut = 0
        OnClick = SawTooth1Click
      end
      object Triangular1: TMenuItem
        Caption = 'Triangular'
        RadioItem = True
        ShortCut = 0
        OnClick = Triangular1Click
      end
      object ExponentialTooth1: TMenuItem
        Caption = 'Exponential Tooth'
        RadioItem = True
        ShortCut = 0
        OnClick = ExponentialTooth1Click
      end
      object LogarithmicTooth1: TMenuItem
        Caption = 'Logarithmic Tooth'
        RadioItem = True
        ShortCut = 0
        OnClick = LogarithmicTooth1Click
      end
      object SquareDutyCycle1: TMenuItem
        Caption = 'Square + DutyCycle'
        RadioItem = True
        ShortCut = 0
        OnClick = SquareDutyCycle1Click
      end
      object Pulse1: TMenuItem
        Caption = 'Pulse'
        RadioItem = True
        ShortCut = 0
        OnClick = Pulse1Click
      end
      object ParabolicTooth1: TMenuItem
        Caption = 'Parabolic Tooth'
        RadioItem = True
        ShortCut = 0
        OnClick = ParabolicTooth1Click
      end
      object Circular1: TMenuItem
        Caption = 'Circular'
        RadioItem = True
        ShortCut = 0
        OnClick = Circular1Click
      end
      object RampTooth1: TMenuItem
        Caption = 'Ramp Tooth'
        RadioItem = True
        ShortCut = 0
        OnClick = RampTooth1Click
      end
      object Noise1: TMenuItem
        Caption = 'Noise'
        ShortCut = 0
        OnClick = Noise1Click
      end
      object None1: TMenuItem
        Caption = 'None'
        ShortCut = 0
        OnClick = None1Click
      end
      object Custom: TMenuItem
        Caption = 'Custom...'
        RadioItem = True
        ShortCut = 0
        OnClick = CustomClick
      end
    end
    object Oscillator2: TMenuItem
      Caption = 'Oscillator &2'
      ShortCut = 0
      object Sine2: TMenuItem
        Caption = 'Sine'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Sine2Click
      end
      object Square2: TMenuItem
        Caption = 'Square'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Square2Click
      end
      object SawTooth2: TMenuItem
        Caption = 'Saw Tooth'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = SawTooth2Click
      end
      object Triangular2: TMenuItem
        Caption = 'Triangular'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Triangular2Click
      end
      object ExponentialTooth2: TMenuItem
        Caption = 'Exponential Tooth'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = ExponentialTooth2Click
      end
      object LogarithmicTooth2: TMenuItem
        Caption = 'Logarithmic Tooth'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = LogarithmicTooth2Click
      end
      object SquareDutyCycle2: TMenuItem
        Caption = 'Square + DutyCycle'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = SquareDutyCycle2Click
      end
      object Pulse2: TMenuItem
        Caption = 'Pulse'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Pulse2Click
      end
      object ParabolicTooth2: TMenuItem
        Caption = 'Parabolic Tooth'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = ParabolicTooth2Click
      end
      object Circular2: TMenuItem
        Caption = 'Circular'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Circular2Click
      end
      object RampTooth2: TMenuItem
        Caption = 'Ramp Tooth'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = RampTooth2Click
      end
      object Noise2: TMenuItem
        Caption = 'Noise'
        GroupIndex = 1
        ShortCut = 0
        OnClick = Noise2Click
      end
      object None2: TMenuItem
        Caption = 'None'
        GroupIndex = 1
        ShortCut = 0
        OnClick = None2Click
      end
      object Custom1: TMenuItem
        Caption = 'Custom...'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = Custom2Click
      end
    end
    object AboutM: TMenuItem
      Caption = '&About'
      ShortCut = 0
      object AboutDefractor1: TMenuItem
        Caption = 'About &Defractor...'
        ShortCut = 0
        OnClick = AboutDefractor1Click
      end
      object Contributors: TMenuItem
        Caption = '&Contributors/Beta Testers...'
        ShortCut = 0
        OnClick = ContributorsClick
      end
    end
  end
  object InstrumentOpen: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'Defractor 1.0 Instrument (*.DFC)|*.DFC|Defractor Enhaced Instrum' +
      'ent (*.DF2)|*.DF2'
    Left = 147
    Top = 198
  end
  object InstrumentSave: TSaveDialog
    FileEditStyle = fsEdit
    Filter =
      'Defractor 1.0 Instrument (*.DFC)|*.DFC|Defractor Enhaced Instrum' +
      'ent (*.DF2)|*.DF2'
    Left = 387
    Top = 201
  end
  object RAWSave: TSaveDialog
    FileEditStyle = fsEdit
    Filter =
      '16 Bit Integer RAW Format (*.RAW)|*.RAW|FastTracker 2.0x Instrum' +
      'ent (*.XI)|*.XI|Microsoft Wave (*.WAV)|*.WAV'
    Left = 417
    Top = 201
  end
  object CustomOpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = '16 Bit Signed RAW Data|*.RAW|Defractor RAW Waveform|*.RAD'
    Left = 117
    Top = 198
  end
end